home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / H191.ZIP / CA29-3.EXE / MCI.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-25  |  2KB  |  47 lines
  1. S0 = 6                ; Dialing directory entry to use
  2. LEGEND " MCI.CMD"               ; Put script name on status bar...
  3. ;
  4. ; ----- MCI: Connect to MCI through SprintNet
  5. ; ----------------------------------------------------------------
  6. ;    Note: You must edit the values above to reflect your call.
  7. ;    Variable S0 determines the entry # being dialed
  8. ; ----------------------------------------------------------------
  9. ;    Note: You must create a logon file with MKLOGON in order to
  10. ;    have this script automatically log you on... Please see the
  11. ;    file SCRIPTS.DOC
  12. ; ----------------------------------------------------------------
  13. ;    Note: This script is written to be FCALLed, executed directly (F2)
  14. ;    or attached to a dialing directory entry (for manual execution).
  15. ; ----------------------------------------------------------------
  16. ;    Note: This script requires no other script.  It *does* require
  17. ;    a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
  18. ; ----------------------------------------------------------------
  19. ;    S0 is modified by this script.
  20. ; ----------------------------------------------------------------
  21. ;
  22. ;    Dial MCI direct
  23. ;
  24.     LEGEND " Dialing MCI direct..."
  25.     IF NOT LINKED        ; If not from alt-d
  26.        DIAL S0        ; Dial directory entry number set above
  27.        IF FAILED EXIT    ; IF esc out
  28.        ENDIF        ; End test if linked
  29.  
  30.     LEGEND " Connecting to MCI..."
  31.     PAUSE 3         ; Wait a bit
  32.     TRANSMIT "!"            ; Send a c/r
  33. ;
  34. ;    Send name and password
  35. ;
  36.     WAITFOR "name: "        ; Wait for MCI name prompt
  37. ;
  38. ;    If we have a MCILOGON file, use it
  39. ;
  40.     SET TTHRU OFF        ; Let psw be typed
  41.     IF ISSCFILE "MCILOGON" FCALL "MCILOGON"
  42. ;
  43. ;    Exit - this script may be fcalled
  44. ;
  45.     IF FCALLED FRETURN    ; Return to caller if called
  46.     ALARM            ; Otherwise, sound alarm - we're done
  47.